home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu013.dms / pu013.adf / not_mine / gree.S < prev    next >
Text File  |  2000-01-01  |  6KB  |  270 lines
  1. beg:
  2.  
  3. ; ----- graphics.library -----
  4. scrollraster=    -396
  5. setapen=    -342
  6. text=         -60
  7. setfont=     -66
  8. closefont=    -78
  9. move=         -240
  10. draw=        -246
  11. initbitmap=     -390
  12. initrastport=     -198
  13. clearscreen=    -48
  14. ; ----- exec.library     -----
  15. allocabs=    -204
  16. openlibrary=     -408
  17. closelibrary=     -414
  18. forbid=     -132
  19. permit=     -138
  20. ; ----- diskfont.library -----
  21. openfont=     -30
  22.  
  23. execbase=     $04
  24.  
  25. movem.l     d0-d7/a0-a6,-(a7)
  26. ; ---- open graphics.library ----
  27. bchg        #1,$bfe001
  28. move.l        execbase,a6
  29. lea        gfxname,a1
  30. jsr        openlibrary(a6)
  31. move.l        d0,gfxbase
  32.  
  33. jsr        forbid(a6)        ; forbid multitasking
  34. move.w        #$0020,$dff096        ; stop sprite DMA
  35. bsr.L        setupcopper        ; copperliste setzen
  36. move.l        gfxbase,a0        ; copperliste einschalten
  37. add.l        #$32,a0
  38. move.w        #$0080,$dff096
  39. move.l        (a0),oldcopper
  40. move.l        #newcopper,(a0)
  41. move.w        #$8080,$dff096
  42. move.l        gfxbase,a6        ; bitmapstruktur
  43. lea        bitmap,a0        ; initialisieren
  44. move.l        #$02,d0
  45. move.l        #352,d1
  46. move.l        #200,d2
  47. jsr        initbitmap(a6)
  48. move.l        #$50000,plane1
  49. move.l        #$52260,plane1+4
  50. lea        rastport,a1
  51. jsr        initrastport(a6)
  52. move.l        #bitmap,r_bitmap
  53. lea        rastport,a1        ; Bildschirm loeschen
  54. jsr        clearscreen(a6)
  55. lea        rastport,a1
  56. move.l        #$01,d0            ; zeichenfarbe setzen
  57. jsr        setapen(a6)
  58. move.l        #$0a,d7            ; text ausgeben
  59. lea        texttab,a5
  60. textloop1:
  61. lea        rastport,a1
  62. move.l        (a5)+,d0
  63. move.l        (a5)+,d1
  64. jsr        move(a6)
  65. lea        rastport,a1
  66. move.l        (a5)+,d0
  67. move.l        (a5)+,a0
  68. jsr        text(a6)
  69. dbra        d7,textloop1
  70. move.w        #$4000,$dff09a        ; neuen irq einschalten
  71. move.l        $6c,oldirq
  72. move.l        #newirq,$6c
  73. move.w        #$c000,$dff09a
  74.  
  75. wait:
  76. btst        #6,$bfe001        ; linke maustaste ???
  77. bne.s        wait
  78. move.w        #$4000,$dff09a        ; auf alten irq zurueck
  79. move.l        oldirq,$6c
  80. move.w        #$c000,$dff09a
  81. move.l        execbase,a6
  82. move.l        gfxbase,a1        ; graphic.lib schliessen
  83. jsr        closelibrary(a6)
  84. move.l        gfxbase,a0        ; alte copperliste einschalten
  85. add.l        #$32,a0
  86. move.w        #$0080,$dff096
  87. move.l        oldcopper,(a0)
  88. move.w        #$8080,$dff096
  89. move.l        execbase,a6        ; multitasking erlauben
  90. jsr        permit(a6)
  91. move.w        #$8020,$dff096        ; sprite DMA einschalten
  92. movem.l        (a7)+,d0-d7/a0-a6
  93. error:
  94. rts
  95.  
  96.  
  97. newirq:
  98. movem.l        d0-d7/a0-a6,-(sp)
  99. bsr.L        setupcopper        ; goldene streifen bewegen
  100. lea        waitab+6,a0
  101. move.l        a0,a1
  102. add.l        ptr1,a0
  103. add.l        ptr2,a1
  104. lea        goldcol,a2
  105. move.l        #22,d2
  106. addloop2:
  107. move.w        (a2),(a0)
  108. move.w        (a2)+,(a1)
  109. add.l        #$08,a0
  110. add.l        #$08,a1
  111. dbra        d2,addloop2
  112. add.l        #$08,ptr1
  113. sub.l        #$08,ptr2
  114. cmp.l        #$00,ptr2
  115. bne.s        exity
  116. move.l        #24,ptr1
  117. move.l        #696,ptr2
  118. exity:
  119. move.l        gfxbase,a6        ; scrolling
  120. lea        rastport,a1
  121. move.l        #$0,d0
  122. clr.l        d1
  123. move.l        #0,d2
  124. move.l        #32,d3
  125. move.l        #351,d4
  126. move.l        #42,d5
  127. jsr        scrollraster(a6)
  128. lea        rastport,a1        ; zweites scrolling
  129. move.l        #$02,d0
  130. clr.l        d1
  131. move.l        #0,d2
  132. move.l        #160,d3
  133. move.l        #351,d4
  134. move.l        #168,d5
  135. jsr        scrollraster(a6)
  136. sub.b        #08,rows        ; schon 1 zeichen gescrollt
  137. bne.s        continue1
  138. move.b        #08,rows
  139. move.l        gfxbase,a6
  140. lea        rastport,a1
  141. move.l        #$02,d0
  142. jsr        setapen(a6)
  143. lea        rastport,a1
  144. move.l        #320,d0
  145. move.l        #38,d1
  146. bsr.s        text1
  147. lea        rastport,a1
  148. move.l        #320,d0
  149. move.l        #167,d1
  150. bsr.s        text1
  151. add.l        #$01,c_ptr
  152. cmp.l        #ende,c_ptr
  153. bne.s        continue1
  154. move.l        #scrollmsg,c_ptr
  155. continue1:
  156. movem.l        (sp)+,d0-d7/a0-a6
  157. dc.w        $4ef9
  158. oldirq:
  159. dc.l    0
  160.  
  161. text1:
  162. jsr        move(a6)        ; naechstes zeichen aus scroll
  163. lea        rastport,a1        ; text ausgeben
  164. move.l        c_ptr,a0
  165. move.l        #1,d0
  166. jsr        text(a6)
  167. rts
  168.  
  169. setupcopper:
  170. lea        waitab,a0
  171. move.l        #111,d0
  172. move.w        #$5809,d1
  173. addloop1:
  174. move.w        d1,(a0)+        ; WAIT
  175. move.w        #$fffe,(a0)+        ; alle bits beachten
  176. move.w        #$0182,(a0)+        ; Farbe 1
  177. move.w        #$0000,(a0)+        ; schwarz
  178. add.w        #$0100,d1        ; naechste rasterzeile
  179. dbra        d0,addloop1
  180. rts
  181.  
  182. goldcol:
  183. dc.w    $420,$430,$440,$450,$460,$470,$a80,$b90,$ca0,$db1,$ec2,$fd3
  184. dc.w    $ec2,$db1,$ca0,$b90,$a80,$970,$860,$750,$640,$530,$420
  185.  
  186. newcopper:
  187. dc.w $0100,$0000,$0182,$0fff
  188. dc.w $0182,$0fff,$0186,$0fff
  189. dc.w $008e,$2c81,$0090,$f4c1
  190. dc.w $0092,$0038,$0094,$00d0
  191. dc.w $0108,$0004,$010a,$0004
  192. dc.w $0102,$0000,$0104,$0000
  193. dc.w $0100,$2200,$00e0,$0005
  194. dc.w $00e2,$0000,$00e4,$0005
  195. dc.w $00e6,$2260
  196. waitab:
  197. blk.w 448,0    
  198. even
  199. scrollmsg:
  200. DC.B    "REPLICA COPY CREW PROUDLY PRESENTS SOME NEW STUFF FOR YOU !!"
  201. DC.B    " SOME GREETINGS GO TO OUR FRIENDS AND CONTACTS :R & W SOFT "
  202. DC.B    "UNITED FREAKS INTERNATIONAL  B&B  TIGERCREW  DE VEGT  KSCS "
  203. DC.B    " FAC  TND  HQC (NICE INTRO !!) BAMIGA SECTOR ONE  THE KENT "
  204. DC.B    "TEAM  AMIGO (PLEASE WRITE BACK !!)  HI JOHN (HOW ABOUT THIS)"
  205. DC.B    " AND TO INTRUDER (GET IN CONTACT WITH ME !!!) ONLY ONE ANTI-"
  206. DC.B    "GREETING !!! TO THAT NOT SO FRESH 'GEE' IF YOU WANT SOME CU"
  207. DC.B    "STOMERS ,KEEP YOUR PROMISES !!!! (BIG MOUTH !!!!!!!!!!!!!"
  208. DC.B    "                                "
  209. DC.B    " IF YOU LIKE TO GET IN TOUCH WITH ME ,WRITE TO ............"
  210. DC.B    "GINO WIEMANN  JENSEMAHEERD 151  9736 CK GRONINGEN (HOLLAND)"
  211. ende:
  212. dc.w    0
  213. even
  214. it1:
  215. DC.B    "           REPLICA COPY CREW             "
  216. it2:
  217. DC.B    "            Present in 1987              "
  218. it3:
  219. DC.B    "      SOME REAL NEW STUFF FOR YOU        "
  220. it4:     
  221. dc.b    "AS ALWAYS SOME GREETINGS TO OUR FRIENDS "
  222. it5:
  223. dc.b    "AND SOME GROUPS : R&W-SOFT  DR.WHO  FAC "
  224. it6:
  225. dc.b    "DE VEGT  TIGER-CREW  KSCS  BS1  TKT  UFI"
  226. it7:
  227. dc.b    "AMIGO  BART&BARON  BWB  BOBO  TRIAD  FP"
  228. it8:
  229. dc.b    "HEADBANGER  TND  ANC  BST  HOTLINE   CC"
  230. it9:
  231. dc.b    "NO ONE  THE BLOCKHEADS  AND TO EVERYONE "
  232. it10:
  233. dc.b    "   A MERRY X-MAS AND A HAPPY NEW YEAR   "
  234. it11:
  235. dc.b    "    LOOK OUT FOR OTHER STUFF FROM US    "
  236. it12:
  237. dc.b
  238. it13:
  239. dc.b
  240. even
  241. gfxbase:
  242. dc.l     0
  243. bitmap:
  244. blk.w     4,0
  245. plane1:
  246. blk.l     10,0
  247. rastport:
  248. blk.l     1,0
  249. r_bitmap:
  250. blk.l     26,0
  251. oldcopper:
  252. dc.l     0
  253. gfxname:
  254. dc.b     "graphics.library",0
  255. rows:
  256. dc.b    2
  257. even
  258. c_ptr:
  259. dc.l    scrollmsg
  260. ptr1:
  261. dc.l    24
  262. ptr2:
  263. dc.l    696
  264. texttab:
  265. dc.l    0,58,it2-it1,it1,0,66,it3-it2,it2,0,76,it4-it3,it3
  266. dc.l    0,86,it5-it4,it4,0,94,it6-it5,it5,0,102,it7-it6,it6
  267. dc.l    0,110,it8-it7,it7,0,118,it9-it8,it8,0,126,it10-it9
  268. dc.l    it9,0,134,it11-it10,it10,0,142,it12-it11
  269. dc.l    it11,0,150,it13-it12
  270.